home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
101-125
/
105
/
basicprogs
/
freud
< prev
next >
Wrap
Text File
|
1995-03-13
|
27KB
|
753 lines
SCREEN 2,640,200,2,2
WINDOW 2," FREUDIAN PERSONALITY ANALYSIS - a shareware program by George Trepal",,16,2
DIM a%(48)
FOR j=1 TO 48
a%(j)=0
NEXT
C=1
WIDTH 80
LOCATE 2,1
PRINT SPACE$(31)"FREUDIAN ANALYSIS"
PRINT
PRINT SPACE$(22)"A shareware program by George Trepal
PRINT SPACE$(32)"2650 Alturas Road"
PRINT SPACE$(28)"Bartow Florida 33830"
PRINT
PRINT SPACE$(19)"All contributions are welcome (and needed!)"
PRINT
PRINT
PRINT " This is a multiple choice test of 48 questions. There are no"
PRINT " right or wrong answers. Pick the answer that comes closest to how"
PRINT " you'd act or feel. You may have to use your imagination for some"
PRINT " questions."
PRINT " Please don't read the explanatory documentation before you take"
PRINT " the test since it might bias your score."
PRINT " It's OK to give this program or charge a small distribution fee"
PRINT " but it may not be sold. Copyright 1987 to George Trepal."
PRINT
PRINT SPACE$(25)"PRESS ANY KEY TO START THE TEST."
GetS:
IF INKEY$ = "" THEN GetS
CLS
QA:
GOSUB GetAnswer
PRINT " On a new job you give your first written report to your new boss."
PRINT " You feel:"
PRINT
PRINT " f1) that your boss will be pleased by your excellent work."
PRINT " f3) afraid that your first try won't be good enough."
PRINT " f5) a bit of anger or resentment that anyone should judge you. in fact your"
PRINT " boss might have less ability than you."
GOTO NextQues
QB:
GOSUB GetAnswer
PRINT " Sex manuals place a good deal of emphasis on foreplay. You feel:"
PRINT
PRINT " f5) some resentment since this puts an unfair responsibility on you. People"
PRINT " should be responsible for their own orgasms and pleasures."
PRINT " f3) nervous and a little anxious since it's your responsibility to do
PRINT " everything right."
PRINT " f1) this is fine since it will bring more pleasure and possibly open new"
PRINT " avenues of enjoyment."
GOTO NextQues
QC:
GOSUB GetAnswer
PRINT " A club you belong to has decided to put on a play. You would prefer:"
PRINT
PRINT " f1) to be an actor."
PRINT " f5) to be a director."
PRINT " f3) to work behind the scenes."
GOTO NextQues
QD:
GOSUB GetAnswer
PRINT " If you worked as an engineer which position would you prefer?"
PRINT
PRINT " f1) to be a manager of other engineers"
PRINT " f3) to work in product design to make products that are safe and help people"
PRINT " f5) to work in the scientific part of engineering that deals with facts"
PRINT " rather than people"
GOTO NextQues
QE:
GOSUB GetAnswer
PRINT " What do you usually do after having sex?"
PRINT
PRINT " f5) find something to read and read until you fall asleep"
PRINT " f3) eat and/or smoke"
PRINT " f1) roll over and go to sleep"
GOTO NextQues
QF:
GOSUB GetAnswer
PRINT " During the first months of a new love affair you:"
PRINT
PRINT " f1) try every sexual position you can think of"
PRINT " f3) try unusual positions only if your partner suggests them"
PRINT " f5) never do anything unusual or kinky"
GOTO NextQues
QG:
GOSUB GetAnswer
PRINT " Which situation would you least like to be in?"
PRINT
PRINT " f5) you have done something nasty and selfish."
PRINT " f3) you are expected to more than you are able to do."
PRINT " f1) you've gone to a big party and you are being ignored by everyone."
GOTO NextQues
QH:
GOSUB GetAnswer
PRINT " How do you feel about sex?"
PRINT
PRINT " f5) it is an act ordained by higher powers and is mainly for the purpose of"
PRINT " reproduction."
PRINT " f3) because of the deep emotions involved it is dangerous and must be"
PRINT " handled with a great deal of care."
PRINT " f1) sex is for pleasure and there is no reason not to do it."
GOTO NextQues
QI:
GOSUB GetAnswer
PRINT " Someone you've been going with for a few months has dropped you in favor of"
PRINT " someone else. You feel:"
PRINT
PRINT " f5) worried because other people will think this reflects badly on your"
PRINT " personality"
PRINT " f1) that your former friend has made a bad decision that he or she will be"
PRINT " sorry for eventually"
PRINT " f3) deserted"
GOTO NextQues
QJ:
GOSUB GetAnswer
PRINT " When you sleep with another person you:"
PRINT
PRINT " f3) wear pyjamas"
PRINT " f1) sleep nude"
PRINT " f5) wear your underwear"
GOTO NextQues
QK:
GOSUB GetAnswer
PRINT " You and a neighbor you don't care too for got drunk at a party, came home,"
PRINT " and made love. You have ignored your neighbor and every time the neighbor"
PRINT " acts friendly you feel guilty."
PRINT
PRINT " f5) you feel this guilt is normal since you are a sensitive and moral person."
PRINT " f3) finally you can't stand the guilt and do something nice for the neighbor"
PRINT " so he or she won't feel rejected."
PRINT " f1) you have no real problem with the guilt but you do worry about the rest"
PRINT " of the neighbors finding out about the affair."
GOTO NextQues
QL:
GOSUB GetAnswer
PRINT " You are eating with friends and the group gets into a wild discussion about"
PRINT " political candidates."
PRINT
PRINT " f1) you let your opinion be known and even try to control the conversation"
PRINT " to make sure that everyone knows that you are right."
PRINT " f3) you say nothing until you find out who the favored candidate is. you"
PRINT " would not want to offend your friends."
PRINT " f5) while you may not have definite feelings about the candidates you think"
PRINT " your friends are stupid since they are emotionally talking about what"
PRINT " should be logical issues."
GOTO NextQues
QM:
GOSUB GetAnswer
PRINT " You and your spouse are going to buy a new bed. You want a:"
PRINT
PRINT " f5) bed that will let you sleep as comfortably as possible."
PRINT " f3) regular sized bed since it assures closeness and body contact."
PRINT " f1) a king-sized bed since there is a lot of room to play on it and it"
PRINT " would look good in the bedroom."
GOTO NextQues
QN:
GOSUB GetAnswer
PRINT " In talking politics with friends you say you really like a certain"
PRINT " candidate. Nobody else likes the candidate and you are told you are"
PRINT " stupid. You react by:"
PRINT
PRINT " f1) thinking they are really the stupid ones."
PRINT " f5) bringing up your candidate's strong points until you are convinced"
PRINT " you have corrected their stupid opinions."
PRINT " f3) deciding you should have kept quiet."
GOTO NextQues
QO:
GOSUB GetAnswer
PRINT " Which of the following statements could best be used to insult you?"
PRINT
PRINT " f3) you are unable to make your own decisions and rely on other to"
PRINT " make them for you!"
PRINT " f5) you are a humorless, stodgy, inflexible person!"
PRINT " f1) you are conceited and have a size three soul with a size eight ego!"
GOTO NextQues
QP:
GOSUB GetAnswer
PRINT " Which of the following is the key to having a successful marriage?"
PRINT
PRINT " f1) the ability to get through troubles by keeping cool and using finesse"
PRINT " f3) the ability to compromise to keep the relationship healthy."
PRINT " f5) finding the right person to start with and then always being loyal and"
PRINT " faithful"
GOTO NextQues
QR:
GOSUB GetAnswer
PRINT " A friend has made you angry. How do you handle the situation?"
PRINT
PRINT " f1) you immediately express your anger but leave enough of an opening"
PRINT " so you don't have to lose your friend."
PRINT " f3) you try not to say anything. If you do say anything you make it clear"
PRINT " that you're only defending yourself since you have been hurt badly."
PRINT " f5) before you express any anger you make sure your anger has a moral"
PRINT " rather than emotional backing."
GOTO NextQues
QS:
GOSUB GetAnswer
PRINT " Your idea of an ideal wedding ring is:"
PRINT
PRINT " f1) a distinctive ring that will easily be noticed by others"
PRINT " f3) one that matches your spouse's ring"
PRINT " f5) you really don't want to wear a ring"
GOTO NextQues
QT:
GOSUB GetAnswer
PRINT " You have a bad cold and have just failed your driver's license test."
PRINT " How do you feel about the failure?"
PRINT
PRINT " f5) my sickness is no excuse. I should have worked at this enough so"
PRINT " that my sickness wouldn't have mattered."
PRINT " f3) I guess I would have failed even if I hadn't been sick. I just"
PRINT " didn't practice enough before the test."
PRINT " f1) I would have passed if I hadn't been sick."
GOTO NextQues
QU:
GOSUB GetAnswer
PRINT " If your marriage failed which of these reasons would be the probable"
PRINT " cause of the failure?"
PRINT
PRINT " f5) your spouse is simply too unreliable and independent."
PRINT " f1) sexually you need more than just one other person."
PRINT " f3) your spouse will simply eventually become tired of you and leave."
GOTO NextQues
QV:
GOSUB GetAnswer
PRINT " You want to go to the movies but your friends remind you that you promised"
PRINT " to help them paint their living room. You keep your promise because:"
PRINT
PRINT " f1) you want to show them what a good person you are""
PRINT " f3) you don't want to get into a fight"
PRINT " f5) promises must always be kept"
GOTO NextQues
QW:
GOSUB GetAnswer
PRINT " In looking for a spouse which of these people would you choose?"
PRINT
PRINT " f5) someone who is able to clearly think about important issues and problems"
PRINT " f3) someone who can take care of you and any children you may have"
PRINT " f1) someone who is good socially and who can adapt well to such things as"
PRINT " job changes and promotions"
GOTO NextQues
QX:
GOSUB GetAnswer
PRINT " It's time for your yearly dental checkup"
PRINT
PRINT " f3) you decide to make an appointment but you never actually do it."
PRINT " f1) you make an appointment because you don't want to be like the stupid"
PRINT " people who lose their teeth while still young."
PRINT " f5) you make an appointment since this sets a good example for friends"
PRINT " and children."
GOTO NextQues
QY:
GOSUB GetAnswer
PRINT " You are out of work and in desperate need of a job. Suddenly two"
PRINT " job offers come through. both jobs pay the same. the one you take"
PRINT " is the one that:"
PRINT
PRINT " f3) best fits your abilities and provides the best security."
PRINT " f1) gives you more power and a higher social standing."
PRINT " f5) best fits your moral and ethical values."
GOTO NextQues
QAA:
GOSUB GetAnswer
PRINT " Which of these people would you prefer to have a long friendship with?"
PRINT
PRINT " f5) a person who is willing to change in order to meet your needs"
PRINT " f3) a person who doesn't have any serious faults that you can find"
PRINT " f1) a person who never criticizes you and thinks you're perfect"
GOTO NextQues
QAB:
GOSUB GetAnswer
PRINT " In general you feel that your neighbors:"
PRINT
PRINT " f5) are rather shallow and not able to to handle serious social or moral"
PRINT " problems."
PRINT " f1) have a high opinion of you since the good qualities you have"
PRINT " impress them."
PRINT " f3) are better able to survive in the world than you are."
GOTO NextQues
QAC:
GOSUB GetAnswer
PRINT " You've written a letter to the editor of your local newspaper. The"
PRINT " letter has been published on the editorial page. Under the letter"
PRINT " is the editor's comment that the letter has obviously been written "
PRINT " by an idiot and it has been published for its humor value."
PRINT
PRINT " f1) you feel angry since the editor is obviously an idiot."
PRINT " f3) you are humiliated that you have written such a stupid letter."
PRINT " f5) you know your letter had good points and decide to take up the"
PRINT " matter with the newspaper's manager and owner."
GOTO NextQues
QAD:
GOSUB GetAnswer
PRINT " You have to have minor surgery and are frightened about the whole thing."
PRINT " As you enter the operating room you notice you have broken out in a cold"
PRINT " sweat from fear."
PRINT
PRINT " f5) you become very angry with yourself since you are reacting childishly"
PRINT " to something that has to be done."
PRINT " f3) you hope the medical people will see that you really are afraid and"
PRINT " be very gentle with you."
PRINT " f1) you decide this is just a natural reaction and hope that nobody notices."
GOTO NextQues
QAE:
GOSUB GetAnswer
PRINT " Which is closest to your feelings about nonconformists?"
PRINT
PRINT " f3) you have sympathy for them. Actually they are just reacting against"
PRINT " a hard and cruel world."
PRINT " f1) you tolerate them and tend to think they are a little humorous."
PRINT " f5) you are critical of them and feel something should be done to"
PRINT " straighten them out."
GOTO NextQues
QAF:
GOSUB GetAnswer
PRINT " Which best describes your childhood?"
PRINT
PRINT " f1) at home I was the center of attention"
PRINT " f3) I could usually get my own way if I was insistent enough"
PRINT " f5) I was rewarded when I behaved well"
GOTO NextQues
QAG:
GOSUB GetAnswer
PRINT " You are visiting a friend who lives in another city. You have both been"
PRINT " invited to a party. You want to make a good impression on the party guests"
PRINT " so you try to show:"
PRINT
PRINT " f1) qualities of being a leader and a good socializer"
PRINT " f3) qualities of being friendly and not offensive"
PRINT " f5) qualities of having integrity and being sincere"
GOTO NextQues
QAH:
GOSUB GetAnswer
PRINT " Your best friend tells you that the only people who are successful in life"
PRINT " are the ones who are not afraid to be aggressive. You react by:"
PRINT
PRINT " f5) general agreement but say such behavior is acceptable only if a"
PRINT " reputation for being pushy isn't established"
PRINT " f3) being turned off by the idea and wondering if your friend is putting"
PRINT " down your sympathetic pleasant behavior"
PRINT " f1) full agreement since this is usually the way you act"
GOTO NextQues
QAI:
GOSUB GetAnswer
PRINT " Your spouse is very impressed by the star of the movie you've just seen."
PRINT " You react by:"
PRINT
PRINT " f1) telling your spouse that in real life the star is a very horrible person"
PRINT " f3) saying nothing but wishing you were more like the star"
PRINT " f5) telling your spouse it's stupid to be impressed when nothing is known";
PRINT " about what the star is like as a human being"
GOTO NextQues
QAJ:
GOSUB GetAnswer
PRINT " Your friend is buying a new car and has brought you along to the automobile"
PRINT " showroom. you start thinking about getting a new car. Your main thoughts are:"
PRINT
PRINT " f3) about how much new cars cost"
PRINT " f5) about whether you really need to get a new car"
PRINT " f1) about how distinctive and sporty the cars look
GOTO NextQues
QAK:
GOSUB GetAnswer
PRINT " Which of the following people would you most like to have for a friend?"
PRINT
PRINT " f1) someone with very good looks and good social skills"
PRINT " f3) someone who is sympathetic and loyal and is very supportive of you"
PRINT " f5) someone who is not very demanding and lets you do pretty much whatever"
PRINT " you want to do"
GOTO NextQues
QAL:
GOSUB GetAnswer
PRINT " Which is more important to you?"
PRINT
PRINT " f5) integrity and honor"
PRINT " f3) friendship and love"
PRINT " f1) success and winning"
GOTO NextQues
QAM:
GOSUB GetAnswer
PRINT " You hear on the news that a person you know (though not very well) has"
PRINT " received an award for outstanding community service. You feel:"
PRINT
PRINT " f1) that you are just as good a person as he or she is"
PRINT " f3) somewhat depressed because you have not achieved nearly as much"
PRINT " f5) he or she got the award by opportunism since you personally know"
PRINT " this person has several character defects"
GOTO NextQues
QAN:
GOSUB GetAnswer
PRINT " For many married couples there is loss of sexual interest after a few years"
PRINT " of marriage. Why do you think this happens?"
PRINT
PRINT " f5) married life is certainly much more than sex and other things in the"
PRINT " relationship become more important than sex."
PRINT " f3) nothing lasts forever so it's reasonable to expect the lack of interest"
PRINT " as time goes on."
PRINT " f1) the old adage that familiarity breeds contempt (or at least"
PRINT " indifference) is true."
GOTO NextQues
QAO:
GOSUB GetAnswer
PRINT " How would your best friend describe you?"
PRINT
PRINT " f1) a fine person with a lot of leadership potential"
PRINT " f3) a nice person who unfortunately gets gets pushed around a lot"
PRINT " f5) an individualistic person with good senses of honor and fair-mindedness"
GOTO NextQues
QAP:
GOSUB GetAnswer
PRINT " Your date at a party has left you and has been talking to another guest"
PRINT " for almost an hour."
PRINT
PRINT " f5) this doesn't bother you too much."
PRINT " f3) you feel deserted."
PRINT " f1) you wonder what your date sees in the fool."
GOTO NextQues
QAQ:
GOSUB GetAnswer
PRINT " In the grocery store you've finished shopping and head for the checkout"
PRINT " line. Someone slips into the line just ahead of you."
PRINT
PRINT " f1) you immediately tell the idiot that you were there first and to get"
PRINT " behind you in the line."
PRINT " f3) you don't say anything since the person probably started turning into"
PRINT " the line before you did."
PRINT " f5) you are angry and disturbed by the line jumper but don't say anything"
PRINT " to avoid making a public spectacle over such a minor issue."
GOTO NextQues
QAR:
GOSUB GetAnswer
PRINT " One of your neighbors is unfriendly toward you even though you have never"
PRINT " knowingly done anything to give offense."
PRINT
PRINT " f3) you decide that you have unknowingly done something offensive."
PRINT " f5) you are a little angry. if there is a problem the neighbor should"
PRINT " confront you with it rather than acting like a sulky child."
PRINT " f1) you go to the neighbor and say,'you always seem unfriendly. If I've"
PRINT " done something that offends you please tell me now.'"
GOTO NextQues
QAS:
GOSUB GetAnswer
PRINT " To make the best possible first impression on people which of these are"
PRINT " the best to project?"
PRINT
PRINT " f1) good physical appearance and charm"
PRINT " f3) an attitude of being helpful and friendly"
PRINT " f5) an image of being honest and sincere";
GOTO NextQues
QAT:
GOSUB GetAnswer
PRINT " You're going to go to the airport to pick up a friend you haven't seen in"
PRINT " a few years. Before you leave you use the bathroom, look in the bathroom"
PRINT " mirror, and:"
PRINT
PRINT " f3) wish that you looked a little better and were the right weight."
PRINT " f1) are satisfied with the way you look which fortunately is better than"
PRINT " most other people look."
PRINT " f5) you don't think much about what you look like, you just do whatever you"
PRINT " need to do such as comb your hair, wash, etc."
GOTO NextQues
QAU:
GOSUB GetAnswer
PRINT " It's been a few weeks since you started a new job and nobody has asked you"
PRINT " to eat lunch with them. you feel:"
PRINT
PRINT " f1) that your outstanding work makes them a little afraid of you."
PRINT " f3) that you've done something terribly wrong somewhere."
PRINT " f5) that it's nothing to worry about since you really haven't any use for"
PRINT " these people anyway."
GOTO NextQues
QAV:
GOSUB GetAnswer
PRINT " You and your spouse are invited to an orgy. You turn down the offer because:"
PRINT
PRINT " f1) even though it's tempting there could be a scandal involved with it and"
PRINT " you wouldn't want to be involved."
PRINT " f3) even though it's tempting it could be a bad influence on your"
PRINT " relationship."
PRINT " f5) that kind of thing is sick and perverted."
GOTO NextQues
QAW:
GOSUB GetAnswer
PRINT " You're on vacation in the Bahamas. After being on the beach for several"
PRINT " hours you put on the new clothes you bought and go to the bar of your hotel."
PRINT
PRINT " f3) you immediately wonder if your clothes fit the occasion."
PRINT " f5) you soon go back to the beach to get away from the noisy drunks"
PRINT " in the bar."
PRINT " f1) you think that people have immediately noticed you because of you good"
PRINT " appearance."
GOTO NextQues
QAX:
GOSUB GetAnswer
PRINT " You're attending a party where most of the guests are members of the local"
PRINT " high society. You don't know any of them."
PRINT
PRINT " f5) actually you feel such people are not too interesting since their talk"
PRINT " seems rather brainless and shallow."
PRINT " f1) you try hard to make a good impression by using your charm and wit in"
PRINT " conversation."
PRINT " f3) you try not to stand out or appear aggressive."
PRINT
COLOR 3,0
PRINT SPACE$(23)"--> THIS IS THE LAST QUESTION <--"
COLOR 1,0
GOTO NextQues
END
GetAnswer:
PRINT
IF a%(C)=0 THEN
CLS
LOCATE 2,1
PRINT SPACE$(35)"Question";C;""
PRINT
RETURN
END IF
PRINT SPACE$(35)"Question";C
COLOR 3,0
PRINT "YOUR ANSWER WAS ";
IF a%(C)=4 THEN PRINT "f1"
IF a%(C)=5 THEN PRINT "f3"
IF a%(C)=6 THEN PRINT "f5"
COLOR 1,0
RETURN
NextQues:
LINE (70,150)-(140,180),2,bf
LINE (210,150)-(280,180),2,bf
LINE (350,150)-(420,180),2,bf
LINE (490,150)-(560,180),2,bf
LINE (70,150)-(140,180),3,b
LINE (210,150)-(280,180),3,b
LINE (350,150)-(420,180),3,b
LINE (490,150)-(560,180),3,b
IF rv=1 THEN GOTO Continue
LOCATE 15,1
PRINT " Press the f keys to give the computer your answer."
PRINT " Press the HELP key for special commands."
PRINT " Or click the mouse on the squares below."
COLOR 1,2
LOCATE 21,13: PRINT "F1"
LOCATE 21,31: PRINT "F3"
LOCATE 21,48: PRINT "F5"
LOCATE 21,65: PRINT "HELP"
COLOR 1,0
HoldLoop:
IF MOUSE(0) <> 0 THEN GOTO Rodent
Pk$ = INKEY$
IF Pk$ = "" THEN HoldLoop
Pk = ASC(Pk$ + CHR$(0))
Evaluate:
IF MOUSE(0) <> 0 THEN Evaluate
IF Pk=129 THEN a%(C)=4: GOTO Pointer
IF Pk=131 THEN a%(C)=5: GOTO Pointer
IF Pk=133 THEN a%(C)=6: GOTO Pointer
IF Pk<>139 THEN HoldLoop
Helper:
WINDOW 3, "SPECIAL SERVICES",(100,50)-(540,150),0,2
WINDOW OUTPUT 3
COLOR 3,0
LOCATE 2,1
PRINT " Press S to skip this question"
PRINT
PRINT " Press B to go back a question"
PRINT
PRINT " Press F to find unanswered questions"
PRINT
PRINT " Press E to end and score this test"
Special:
Pk$ = INKEY$
IF Pk$ = "" THEN Special
Pk$ = UCASE$(Pk$)
IF Pk$ = "S" THEN
GOSUB CloseIt
GOTO Pointer
END IF
IF Pk$ = "B" THEN
C=C-2
GOSUB CloseIt
CLS
GOTO Pointer
END IF
IF Pk$ = "E" THEN C=C-1: GOTO EndIt
IF Pk$ = "F" THEN C=C-1: GOTO Unanswered
GOTO Special
Pointer:
C=C+1
IF C<1 THEN C=48
IF C>48 THEN Helper
IF C<13 THEN p=C:GOTO Transfer
IF C>12 AND C<25 THEN p=C-12: GOTO TransferA
IF C>24 AND C<37 THEN p=C-24: GOTO TransferB
IF C>36 THEN p=C-36: GOTO TransferC
Transfer:
ON p GOTO QA,QB,QC,QD,QE,QF,QG,QH,QI,QJ,QK,QL
TransferA:
ON p GOTO QM,QN,QO,QP,QR,QS,QT,QU,QV,QW,QX,QY
TransferB:
ON p GOTO QAA,QAB,QAC,QAD,QAE,QAF,QAG,QAH,QAI,QAJ,QAK,QAL
TransferC:
ON p GOTO QAM,QAN,QAO,QAP,QAQ,QAR,QAS,QAT,QAU,QAV,QAW,QAX
Unanswered:
CLS
PRINT "the following questions have not been answered:"
fl=0
FOR j=1 TO 48
IF a%(j)=0 THEN fl=1: PRINT j,
NEXT
IF fl=1 THEN GoBack
PRINT "You have answered every question. Press the RETURN key"
ReturnWait:
IF INKEY$ <> CHR$(13) THEN ReturnWait
GOTO Transfer
GoBack:
PRINT : PRINT "Enter the number of the question you"
PRINT "want to go to then press the RETURN key."
INPUT Rn
IF Rn < 1 OR Rn > 48 THEN GoBack
GOSUB CloseIt
C = Rn-1
GOTO Pointer
EndIt:
CLS
tl=0
FOR j=1 TO 48
IF a%(j)=0 THEN tl=tl+1
NEXT
IF tl>0 THEN PRINT " You have left";tl;"unanswered questions."
PRINT
PRINT "If you are certain you want the test to end then type"
PRINT "the word END and press the RETURN key. If you do NOT"
PRINT "want the test to end then type the word NO and press"
PRINT "the RETURN key."
Loop:
PRINT
INPUT " Type END or NO ";E$
E$ = UCASE$(E$)
IF E$="NO" THEN
GOSUB CloseIt
GOTO Pointer
END IF
IF E$<>"END" THEN
PRINT "Please try again. I can only respond to END or NO."
GOTO Loop
END IF
GOSUB CloseIt
CLS
FOR j=1 TO 48
IF a%(j)=0 THEN ua=ua+1
IF a%(j)=4 THEN s1=s1+1
IF a%(j)=5 THEN s2=s2+1
IF a%(j)=6 THEN s3=s3+1
NEXT
IF ua=0 THEN Skip
IF ua=1 THEN PRINT "1 unanswered question"
IF ua>1 THEN PRINT ua;"unanswered questions"
Skip:
GOSUB CloseIt
LOCATE 3,1
PRINT " Copy these numbers on paper. They are important!"
PRINT
PRINT " f1 =";s1,"f3 =";s2,"f5 =";s3
PRINT
PRINT " The documentation that came with this program will explain your results."
PRINT
PRINT " Press the RETURN key to clear the computer."
Killer:
IF INKEY$ <> CHR$(13) THEN Killer
WINDOW CLOSE 2
SCREEN CLOSE 2
END
Rodent: 'mouse input
IF MOUSE(2) < 150 OR MOUSE(2) > 180 THEN HoldLoop
IF MOUSE(1) > 70 AND MOUSE (1) < 140 THEN Pk=129: GOTO Evaluate
IF MOUSE(1) > 210 AND MOUSE (1) < 280 THEN Pk=131: GOTO Evaluate
IF MOUSE(1) > 350 AND MOUSE (1) < 420 THEN Pk=133: GOTO Evaluate
IF MOUSE(1) > 490 AND MOUSE (1) < 560 THEN Pk=139: GOTO Evaluate
GOTO HoldLoop
CloseIt: 'close Help screen
WINDOW CLOSE 3
WINDOW OUTPUT 2
COLOR 1,0
RETURN